SuperHack/SuperHack CD.bin/CODING/DELPHI/D_RAS.ZIP/TESTFORM.DFM/TESTFORM.txt

Text File | 1996-09-22 | 4.1 KB | 216 lines

object frmTest: TfrmTest
  Left = 7
  Top = 26
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'RAS Test'
  ClientHeight = 313
  ClientWidth = 601
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object lstEntries: TListBox
    Left = 8
    Top = 32
    Width = 113
    Height = 137
    ItemHeight = 13
    TabOrder = 1
    OnClick = lstEntriesClick
  end
  object btnGetEntries: TButton
    Left = 8
    Top = 8
    Width = 113
    Height = 23
    Caption = 'Enum RAS Entries'
    TabOrder = 0
    OnClick = btnGetEntriesClick
  end
  object btnCreateEntry: TButton
    Left = 128
    Top = 32
    Width = 75
    Height = 23
    Caption = 'Create entry'
    TabOrder = 2
    OnClick = btnCreateEntryClick
  end
  object btnEditEntry: TButton
    Left = 128
    Top = 56
    Width = 75
    Height = 23
    Caption = 'Edit entry'
    Enabled = False
    TabOrder = 3
    OnClick = btnEditEntryClick
  end
  object grpSelectedEntry: TGroupBox
    Left = 8
    Top = 176
    Width = 273
    Height = 129
    TabOrder = 4
    object lblUserName: TLabel
      Left = 8
      Top = 20
      Width = 48
      Height = 13
      Caption = 'Username'
    end
    object lblPassword: TLabel
      Left = 8
      Top = 44
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object lblAsync: TLabel
      Left = 8
      Top = 104
      Width = 63
      Height = 13
      Caption = 'Async status:'
    end
    object lblStatus: TLabel
      Left = 80
      Top = 104
      Width = 185
      Height = 13
      AutoSize = False
    end
    object btnGetParams: TButton
      Left = 192
      Top = 16
      Width = 75
      Height = 23
      Caption = 'Get params'
      Enabled = False
      TabOrder = 2
      OnClick = btnGetParamsClick
    end
    object btnDialEntry: TButton
      Left = 8
      Top = 72
      Width = 75
      Height = 23
      Caption = 'Dial'
      Enabled = False
      TabOrder = 4
      OnClick = btnDialEntryClick
    end
    object txtUserName: TEdit
      Left = 64
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
      OnChange = txtUserNameChange
    end
    object txtPassword: TEdit
      Left = 64
      Top = 40
      Width = 121
      Height = 21
      PasswordChar = '*'
      TabOrder = 1
    end
    object optDialMode: TRadioGroup
      Left = 88
      Top = 64
      Width = 121
      Height = 33
      Caption = 'Dial mode'
      Columns = 2
      ItemIndex = 1
      Items.Strings = (
        'Sync'
        'Async')
      TabOrder = 5
    end
    object btnSetParams: TButton
      Left = 190
      Top = 40
      Width = 75
      Height = 23
      Caption = 'Set params'
      Enabled = False
      TabOrder = 3
      OnClick = btnSetParamsClick
    end
  end
  object btnHangup: TButton
    Left = 520
    Top = 176
    Width = 75
    Height = 23
    Caption = 'Hang up'
    Enabled = False
    TabOrder = 7
    OnClick = btnHangupClick
  end
  object btnActiveConn: TButton
    Left = 224
    Top = 8
    Width = 169
    Height = 23
    Caption = 'Enum active connections'
    TabOrder = 5
    OnClick = btnActiveConnClick
  end
  object lvConnections: TListView
    Left = 224
    Top = 32
    Width = 369
    Height = 137
    ColumnClick = False
    Columns = <
      item
        Caption = 'Name'
        Width = 6
        WidthType = (
          -1)
      end
      item
        Caption = 'Device type'
        Width = 12
        WidthType = (
          -1)
      end
      item
        Caption = 'Device name'
        Width = 12
        WidthType = (
          -1)
      end
      item
        Caption = 'Status'
        Width = 12
        WidthType = (
          -1)
      end>
    ReadOnly = False
    HideSelection = False
    TabOrder = 6
    ViewStyle = vsReport
  end
  object txtCopyright: TMemo
    Left = 456
    Top = 264
    Width = 145
    Height = 49
    Alignment = taCenter
    Color = 8454143
    Enabled = False
    Lines.Strings = (
      'RAS Test V1.0'
      '(C) 1996 by Davide Moretti'
      '<[e-mail]>')
    TabOrder = 8
  end
end